home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Games / Xconq 7.1.0 / src / xconq-7.1.0 / misc / xconq.el < prev   
Encoding:
Text File  |  1996-07-07  |  1.1 KB  |  54 lines  |  [TEXT/R*ch]
  1. (require 'hilit19)
  2.  
  3. ;; define mode for xconq 5 periods
  4.  
  5. (defun period-mode ()
  6.   "Major mode for editing xconq 5 periods"
  7.   (interactive)
  8.   (lisp-mode)
  9.   (setq major-mode 'period-mode)
  10.   (setq mode-name "xconq")
  11. )
  12.  
  13. ;; patterns for xconq 5 periods
  14.  
  15. (hilit-set-mode-patterns
  16.  'period-mode
  17.  '(
  18.    (";.*" nil comment)
  19.    ("#|" "|#" comment)
  20.    ("\"[^\"]*\"" nil string)
  21.    ("\\[[^][]*\\]" nil type)
  22.    )
  23. )
  24.  
  25. ;; define mode for xconq 7 games
  26.  
  27. (defun gdl-mode ()
  28.   "Major mode for editing xconq 7 games"
  29.   (interactive)
  30.   (lisp-mode)
  31.   (setq major-mode 'gdl-mode)
  32.   (setq mode-name "GDL")
  33. )
  34.  
  35. ;; patterns for xconq 7 games
  36.  
  37. (hilit-set-mode-patterns
  38.  'gdl-mode
  39.  '(
  40.    (";.*" nil comment)
  41.    ("#|" "|#" comment)
  42.    (hilit-string-find ?\\ string)
  43.    ("\\(table\\|define\\|undefine\\|set\\|add\\|quote\\|append\\|remove\\|list\\)[ \t\n]" 1 decl)
  44.    ("\\(game-module\\|base-module\\)[ \t\n]" 1 define)
  45.    ("\\(include\\)[ \t\n]" 1 include)
  46.    ("[^a-z]\\(true\\|false\\|cond\\|if\\|else\\|end-if\\|not\\|or\\|and\\|do\\)[ \t\n]" 1 keyword)
  47.    ))
  48.  
  49. (setq auto-mode-alist (append auto-mode-alist
  50.                   (list '("\\.per$" . period-mode))
  51.                   (list '("\\.g$"   . gdl-mode))
  52.  
  53. ))
  54.